home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / remaxap.prg < prev    next >
Encoding:
Text File  |  1994-06-28  |  10.8 KB  |  579 lines
  1. * This program reads in raw data from remax in the specified format
  2. * It replaces the remax.ap file and awk
  3.  
  4. new = FCREATE("RMXDTA.TXT")
  5. bio = FCREATE("bioinfo.txt")
  6. handle = FOPEN("NAME.dat")
  7.  
  8. *IF handle < 0
  9. *    DEFINE WINDOW alert FROM 7,17 TO 12,60 DOUBLE COLOR SCHEME 7
  10.     
  11. *    DO CASE
  12. *        CASE FERROR() = 4
  13. *            reason = 'Too many files Open'
  14. *        CASE FERROR() = 5
  15. *            reason = 'Access Denied'
  16. *        CASE FERROR() = 8
  17. *            reason = 'Out of Memory'
  18. *        CASE FERROR() = 31
  19. *            reason = 'GENERAL FAILURE'
  20. *    ENDCASE
  21.     
  22. *   CANCEL
  23.     
  24. * ENDIF
  25.  
  26. Count = 0
  27.  
  28. DO WHILE Count <= 15  
  29.  
  30. *              &&NOT FEOF(handle)
  31.  
  32.     Region = FREAD(handle, 2)
  33.     Office = FREAD(handle, 3)
  34.     Number = FREAD(handle, 3)
  35.     Unique = FREAD(handle,12)
  36.     Name = FREAD(handle, 30)
  37.     Nick = FREAD(handle, 20)
  38.     Title = FREAD(handle, 2)
  39.     Posistion = FREAD(handle, 30)
  40.     Spec1 = FREAD(handle, 3)
  41.     Spec2 = FREAD(handle, 3)
  42.     Lang1 = FREAD(handle, 20)
  43.     Lang2 = FREAD(handle, 20)
  44.     Lang3 = FREAD(handle, 20)
  45.     License = FREAD(handle, 4)
  46.     Join = FREAD(handle, 4)
  47.     Sales = FREAD(handle, 6)
  48.     Desig1 = FREAD(handle, 6)
  49.     Desig2 = FREAD(handle, 6)
  50.     Desig3 = FREAD(handle, 6)
  51.     Desig4 = FREAD(handle, 6)
  52.     Desig5 = FREAD(handle, 6)
  53.     Desig6 = FREAD(handle, 6)
  54.     Club = FREAD(handle, 4)
  55.     ROF = FREAD(handle, 12)
  56.     Comm1 = FREAD(handle, 1)
  57.     Comm2 = FREAD(handle, 1)
  58.     Comm3 = FREAD(handle, 1)
  59.     Comm4 = FREAD(handle, 1)
  60.     Comm5 = FREAD(handle, 1)
  61.     skip = FSEEK(handle, 5, 1)
  62.     OffName = FREAD(handle, 30)
  63.     OffAdd1 = FREAD(handle, 30)
  64.     OffAdd2 = FREAD(handle, 30)
  65.     City = FREAD(handle, 17)
  66.     State = FREAD(handle, 2)
  67.     Zip = FREAD(handle, 10)
  68.     Country = FREAD(handle, 20)
  69.     Phone1 = FREAD(handle, 12)
  70.     Phone2 = FREAD(handle, 12)
  71.     Phone3 = FREAD(handle, 12)
  72.     Phone4 = FREAD(handle, 12)
  73.     FAX = FREAD(handle, 12)
  74.     Service1 = FREAD(handle, 20)
  75.     Service2 = FREAD(handle, 20)
  76.     Service3 = FREAD(handle, 20)
  77.     Service4 = FREAD(handle, 20)
  78.     Open = FREAD(handle, 6)
  79.     ADI = FREAD(handle, 20)
  80.     Page = FREAD(handle, 4)
  81.     Coor = FREAD(handle, 2)
  82.     OffType = FREAD(handle, 2)
  83.     CityOver = FREAD(handle, 17)
  84.     RosterSta = FREAD(handle, 30)
  85.     Rams = FREAD(handle, 15)
  86.     Achiev = FREAD(handle, 20)
  87.     COMPUSERV = FREAD(handle, 17)
  88.  
  89. * START READING BIO INFO    
  90.  
  91.     PhoneLoc = FREAD(handle, 12)
  92.     HomePhone = FREAD(handle, 12)
  93.     AgntFax = FREAD(handle, 12)
  94.     AgntPager = FREAD(handle, 12)
  95.     AgntMobile = FREAD(handle, 12)
  96.     CIVIC1 = FREAD(handle, 4)
  97.     CIVIC2 = FREAD(handle, 4)
  98.     CIVIC3 = FREAD(handle, 4)
  99.     HOBBY1 = FREAD(handle, 4)
  100.     HOBBY2 = FREAD(handle, 4)
  101.     HOBBY3 = FREAD(handle, 4)
  102.     MEMBER1 = FREAD(handle, 4)
  103.     MEMBER2 = FREAD(handle, 4)
  104.     MEMBER3 = FREAD(handle, 4)
  105.     Service1 = FREAD(handle, 20)
  106.     Service2 = FREAD(handle, 20)
  107.     Service3 = FREAD(handle, 20)
  108.     Service4 = FREAD(handle, 20)
  109.     Service5 = FREAD(handle, 20)
  110.     Education = FREAD(handle, 15)
  111.     Desig1 = FREAD(handle, 10)
  112.     Desig2 = FREAD(handle, 10)
  113.     Desig3 = FREAD(handle, 10)
  114.     Career = FREAD(handle, 40)
  115.     Price_fr = FREAD(handle, 12)
  116.     Price_to = FREAD(handle, 12)
  117.     Pref = FREAD(handle, 1)
  118.     Referal1 = FREAD(handle, 1)
  119.     Referal2 = FREAD(handle, 1)
  120.     Referal3 = FREAD(handle, 1)
  121.     Referal4 = FREAD(handle, 1)
  122.     ERCPaper = FREAD(handle, 1)
  123.     Welcomekit = FREAD(handle, 1)
  124.     Relocations = FREAD(handle, 58)
  125.     Picture = FREAD(handle, 1)
  126.     EntryDate = FREAD(handle, 6)
  127.     BioSubs = FREAD(handle, 6)
  128.     Info = FGETS(handle, 480)
  129.     
  130. * START WRITING TO "new"
  131.     
  132.     =FWRITE(new, Region)
  133.     =FWRITE(new, ';')
  134.     =FWRITE(new, Office)
  135.     =FWRITE(new, ';')
  136.     =FWRITE(new, Number)
  137.     =FWRITE(new, ';')    
  138.     =FWRITE(new, Unique)
  139.     =FWRITE(new, ';"')    
  140.     =FWRITE(new, TRIM(Name))
  141.     =FWRITE(new, '";')    
  142.  
  143.     IF NOT EMPTY(TRIM(Nick))
  144.         =FWRITE(new, '"'+Nick+'"')
  145.     ELSE
  146.         =FWRITE(new, ';')
  147.     ENDIF
  148.  
  149.     IF NOT EMPTY(TRIM(Title))
  150.         =FWRITE(new, '"'+Title+'"')
  151.     ELSE
  152.         =FWRITE(new, ';')
  153.     ENDIF
  154.  
  155.     IF NOT EMPTY(TRIM(Posistion))
  156.         =FWRITE(new, '"'+Posistion+'"')
  157.     ELSE
  158.         =FWRITE(new, ';')
  159.     ENDIF
  160.     
  161.     IF NOT EMPTY(TRIM(Spec1))
  162.         =FWRITE(new, '"'+Spec1+'"')
  163.     ELSE
  164.         =FWRITE(new, ';')
  165.     ENDIF
  166.         
  167.     IF NOT EMPTY(TRIM(Spec2))
  168.         =FWRITE(new, '"'+Spec2+'"')
  169.     ELSE
  170.         =FWRITE(new, ';')
  171.     ENDIF
  172.         
  173.     IF NOT EMPTY(TRIM(Lang1))
  174.         =FWRITE(new, '"'+Lang1+'"')
  175.     ELSE
  176.         =FWRITE(new, ';')
  177.     ENDIF
  178.         
  179.         
  180.     IF NOT EMPTY(TRIM(Lang2))
  181.         =FWRITE(new, '"'+Lang2+'"')
  182.     ELSE
  183.         =FWRITE(new, ';')
  184.     ENDIF
  185.         
  186.     IF NOT EMPTY(TRIM(Lang3))
  187.         =FWRITE(new, '"'+Lang3+'"')
  188.     ELSE
  189.         =FWRITE(new, ';')
  190.     ENDIF
  191.         
  192.     IF NOT EMPTY(TRIM(License))
  193.         =FWRITE(new, '"'++'"')
  194.     ELSE
  195.         =FWRITE(new, ';')
  196.     ENDIF
  197.         
  198.     IF NOT EMPTY(TRIM(Join))
  199.         =FWRITE(new, '"'++'"')
  200.     ELSE
  201.         =FWRITE(new, ';')
  202.     ENDIF
  203.         
  204.     IF NOT EMPTY(TRIM(Sales))
  205.         =FWRITE(new, '"'++'"')
  206.     ELSE
  207.         =FWRITE(new, ';')
  208.     ENDIF
  209.         
  210.     IF NOT EMPTY(TRIM(Desig1))
  211.         =FWRITE(new, '"'+Desig1+'"')
  212.     ELSE
  213.         =FWRITE(new, ';')
  214.     ENDIF
  215.         
  216.     IF NOT EMPTY(TRIM(Desig1))
  217.         =FWRITE(new, '"'+Desig1+'"')
  218.     ELSE
  219.         =FWRITE(new, ';')
  220.     ENDIF
  221.         
  222.     IF NOT EMPTY(TRIM(Desig2))
  223.         =FWRITE(new, '"'+Desig2+'"')
  224.     ELSE
  225.         =FWRITE(new, ';')
  226.     ENDIF
  227.  
  228.     IF NOT EMPTY(TRIM(Desig3))
  229.         =FWRITE(new, '"'+Desig3+'"')
  230.     ELSE
  231.         =FWRITE(new, ';')
  232.     ENDIF
  233.  
  234.     IF NOT EMPTY(TRIM(Desig4))
  235.         =FWRITE(new, '"'+Desig4+'"')
  236.     ELSE
  237.         =FWRITE(new, ';')
  238.     ENDIF
  239.  
  240.     IF NOT EMPTY(TRIM(Desig5))
  241.         =FWRITE(new, '"'+Desig5+'"')
  242.     ELSE
  243.         =FWRITE(new, ';')
  244.     ENDIF
  245.  
  246.     IF NOT EMPTY(TRIM(Desig6))
  247.         =FWRITE(new, '"'+Desig6+'"')
  248.     ELSE
  249.         =FWRITE(new, ';')
  250.     ENDIF
  251.  
  252.     IF NOT EMPTY(TRIM(Club))
  253.         =FWRITE(new, '"'+Club+'"')
  254.     ELSE
  255.         =FWRITE(new, ';')
  256.     ENDIF
  257.  
  258.     IF NOT EMPTY(TRIM(ROF))
  259.         =FWRITE(new, '"'+ROF+'"')
  260.     ELSE
  261.         =FWRITE(new, ';')
  262.     ENDIF
  263.  
  264.     IF NOT EMPTY(TRIM(Comm1))
  265.         =FWRITE(new, '"'+Comm1+'"')
  266.     ELSE
  267.         =FWRITE(new, ';')
  268.     ENDIF
  269.  
  270.     IF NOT EMPTY(TRIM(Comm2))
  271.         =FWRITE(new, '"'+Comm2+'"')
  272.     ELSE
  273.         =FWRITE(new, ';')
  274.     ENDIF
  275.  
  276.     IF NOT EMPTY(TRIM(Comm3))
  277.         =FWRITE(new, '"'+Comm3+'"')
  278.     ELSE
  279.         =FWRITE(new, ';')
  280.     ENDIF
  281.  
  282.     IF NOT EMPTY(TRIM(Comm4))
  283.         =FWRITE(new, '"'+Comm4+'"')
  284.     ELSE
  285.         =FWRITE(new, ';')
  286.     ENDIF
  287.  
  288.     IF NOT EMPTY(TRIM(Comm5))
  289.         =FWRITE(new, '"'+Comm5+'"')
  290.     ELSE
  291.         =FWRITE(new, ';')
  292.     ENDIF
  293.  
  294.     skip = FSEEK(handle, 5, 1)
  295.  
  296.     IF NOT EMPTY(TRIM(OffName))
  297.         =FWRITE(new, '"'+OffName+'"')
  298.     ELSE
  299.         =FWRITE(new, ';')
  300.     ENDIF
  301.  
  302.     IF NOT EMPTY(TRIM(OffAdd1))
  303.         =FWRITE(new, '"'+OffAdd1+'"')
  304.     ELSE
  305.         =FWRITE(new, ';')
  306.     ENDIF
  307.  
  308.     IF NOT EMPTY(TRIM(OffAdd2))
  309.         =FWRITE(new, '"'+OffAdd2+'"')
  310.     ELSE
  311.         =FWRITE(new, ';')
  312.     ENDIF
  313.  
  314.     IF NOT EMPTY(TRIM(City))
  315.         =FWRITE(new, '"'+City+'"')
  316.     ELSE
  317.         =FWRITE(new, ';')
  318.     ENDIF
  319.  
  320.     IF NOT EMPTY(TRIM(State))
  321.         =FWRITE(new, '"'+State+'"')
  322.     ELSE
  323.         =FWRITE(new, ';')
  324.     ENDIF
  325.  
  326.     IF NOT EMPTY(TRIM(Zip))
  327.         =FWRITE(new, '"'+Zip+'"')
  328.     ELSE
  329.         =FWRITE(new, ';')
  330.     ENDIF
  331.  
  332.     IF NOT EMPTY(TRIM(Country))
  333.         =FWRITE(new, '"'+Country+'"')
  334.     ELSE
  335.         =FWRITE(new, ';')
  336.     ENDIF
  337.  
  338.     IF NOT EMPTY(TRIM(Phone1))
  339.         =FWRITE(new, '"'+Phone1+'"')
  340.     ELSE
  341.         =FWRITE(new, ';')
  342.     ENDIF
  343.  
  344.     IF NOT EMPTY(TRIM(Phone2))
  345.         =FWRITE(new, '"'+Phone2+'"')
  346.     ELSE
  347.         =FWRITE(new, ';')
  348.     ENDIF
  349.  
  350.     IF NOT EMPTY(TRIM(Phone3))
  351.         =FWRITE(new, '"'+Phone3+'"')
  352.     ELSE
  353.         =FWRITE(new, ';')
  354.     ENDIF
  355.  
  356.     IF NOT EMPTY(TRIM(Phone4))
  357.         =FWRITE(new, '"'+Phone4+'"')
  358.     ELSE
  359.         =FWRITE(new, ';')
  360.     ENDIF
  361.  
  362.     IF NOT EMPTY(TRIM(FAX))
  363.         =FWRITE(new, '"'+FAX+'"')
  364.     ELSE
  365.         =FWRITE(new, ';')
  366.     ENDIF
  367.  
  368.     IF NOT EMPTY(TRIM(Service1))
  369.         =FWRITE(new, '"'+Service1+'"')
  370.     ELSE
  371.         =FWRITE(new, ';')
  372.     ENDIF
  373.  
  374.     IF NOT EMPTY(TRIM(Service2))
  375.         =FWRITE(new, '"'+Service2+'"')
  376.     ELSE
  377.         =FWRITE(new, ';')
  378.     ENDIF
  379.  
  380.     IF NOT EMPTY(TRIM(Service3))
  381.         =FWRITE(new, '"'+Service3+'"')
  382.     ELSE
  383.         =FWRITE(new, ';')
  384.     ENDIF
  385.  
  386.  
  387.     IF NOT EMPTY(TRIM(Service4))
  388.         =FWRITE(new, '"'+Service4+'"')
  389.     ELSE
  390.         =FWRITE(new, ';')
  391.     ENDIF
  392.  
  393.     IF NOT EMPTY(TRIM(Open))
  394.         =FWRITE(new, '"'+Open+'"')
  395.     ELSE
  396.         =FWRITE(new, ';')
  397.     ENDIF
  398.  
  399.     IF NOT EMPTY(TRIM(ADI))
  400.         =FWRITE(new, '"'+ADI+'"')
  401.     ELSE
  402.         =FWRITE(new, ';')
  403.     ENDIF
  404.  
  405.     IF NOT EMPTY(TRIM(Page))
  406.         =FWRITE(new, '"'+Page+'"')
  407.     ELSE
  408.         =FWRITE(new, ';')
  409.     ENDIF
  410.  
  411.     IF NOT EMPTY(TRIM(Coor))
  412.         =FWRITE(new, '"'+Coor+'"')
  413.     ELSE
  414.         =FWRITE(new, ';')
  415.     ENDIF
  416.  
  417.     IF NOT EMPTY(TRIM(OffType))
  418.         =FWRITE(new, '"'+OffType+'"')
  419.     ELSE
  420.         =FWRITE(new, ';')
  421.     ENDIF
  422.  
  423.     IF NOT EMPTY(TRIM(CityOver))
  424.         =FWRITE(new, '"'+CityOver+'"')
  425.     ELSE
  426.         =FWRITE(new, ';')
  427.     ENDIF
  428.  
  429.     IF NOT EMPTY(TRIM(RosterSta))
  430.         =FWRITE(new, '"'+RosterSta+'"')
  431.     ELSE
  432.         =FWRITE(new, ';')
  433.     ENDIF
  434.  
  435.     IF NOT EMPTY(TRIM(Rams))
  436.         =FWRITE(new, '"'+Rams+'"')
  437.     ELSE
  438.         =FWRITE(new, ';')
  439.     ENDIF
  440.  
  441.     IF NOT EMPTY(TRIM(Achiev))
  442.         =FWRITE(new, '"'+Achiev+'"')
  443.     ELSE
  444.         =FWRITE(new, ';')
  445.     ENDIF
  446.  
  447.     IF NOT EMPTY(TRIM(COMPUSERV))
  448.         =FWRITE(new, '"'+COMPUSERV+'"')
  449.     ELSE
  450.         =FWRITE(new, ';')
  451.     ENDIF
  452.  
  453.     IF NOT EMPTY(TRIM(PICTURE))
  454.         IF PICTURE == 'Y'
  455.             =FWRITE(bio, '"'+Unique'"')
  456.             
  457.             IF NOT EMPTY(TRIM(PhoneLoc))
  458.                 =FWRITE(new, '"'+PhoneLoc+'"')
  459.             ELSE
  460.                 =FWRITE(new, ';')
  461.             ENDIF
  462.             
  463.             IF NOT EMPTY(TRIM(HomePhone))
  464.                 =FWRITE(new, '"'+HomePhone+'"')
  465.             ELSE
  466.                 =FWRITE(new, ';')
  467.             ENDIF
  468.             
  469.             IF NOT EMPTY(TRIM(AgntFax))
  470.                 =FWRITE(new, '"'+AgntFax+'"')
  471.             ELSE
  472.                 =FWRITE(new, ';')
  473.             ENDIF
  474.             
  475.             IF NOT EMPTY(TRIM(AgntPager))
  476.                 =FWRITE(new, '"'+AgntPager+'"')
  477.             ELSE
  478.                 =FWRITE(new, ';')
  479.             ENDIF
  480.                 
  481.             IF NOT EMPTY(TRIM(AgntMobile))
  482.                 =FWRITE(new, '"'+AgntMobile+'"')
  483.             ELSE
  484.                 =FWRITE(new, ';')
  485.             ENDIF
  486.                 
  487.             IF NOT EMPTY(TRIM(CIVIC1))
  488.                 =FWRITE(new, '"'+CIVIC1+'"')
  489.             ELSE
  490.                 =FWRITE(new, ';')
  491.             ENDIF
  492.                 
  493.             IF NOT EMPTY(TRIM(CIVIC2))
  494.                 =FWRITE(new, '"'+CIVIC2+'"')
  495.             ELSE
  496.                 =FWRITE(new, ';')
  497.             ENDIF
  498.                 
  499.             IF NOT EMPTY(TRIM(CIVIC3))
  500.                 =FWRITE(new, '"'+CIVIC3+'"')
  501.             ELSE
  502.                 =FWRITE(new, ';')
  503.             ENDIF
  504.                 
  505.             IF NOT EMPTY(TRIM(HOBBY1))
  506.                 =FWRITE(new, '"'+HOBBY1+'"')
  507.             ELSE
  508.                 =FWRITE(new, ';')
  509.             ENDIF
  510.                 
  511.             IF NOT EMPTY(TRIM(HOBBY2))
  512.                 =FWRITE(new, '"'+HOBBY2+'"')
  513.             ELSE
  514.                 =FWRITE(new, ';')
  515.             ENDIF
  516.                 
  517.             IF NOT EMPTY(TRIM(HOBBY3))
  518.                 =FWRITE(new, '"'+HOBBY3+'"')
  519.             ELSE
  520.                 =FWRITE(new, ';')
  521.             ENDIF
  522.             
  523.             IF NOT EMPTY(TRIM(MEMBER1))
  524.                 =FWRITE(new, '"'+MEMBER1+'"')
  525.             ELSE
  526.                 =FWRITE(new, ';')
  527.             ENDIF
  528.                 
  529.             IF NOT EMPTY(TRIM(MEMBE2))
  530.                 =FWRITE(new, '"'+MEMBER2+'"')
  531.             ELSE
  532.                 =FWRITE(new, ';')
  533.             ENDIF
  534.                 
  535.             IF NOT EMPTY(TRIM(MEMBER3))
  536.                 =FWRITE(new, '"'+MEMBER3+'"')
  537.             ELSE
  538.                 =FWRITE(new, ';')
  539.             ENDIF
  540.                 
  541.             IF NOT EMPTY(TRIM(Service1))
  542.                 =FWRITE(new, '"'+Service1+'"')
  543.             ELSE
  544.                 =FWRITE(new, ';')
  545.             ENDIF
  546.                 
  547.             IF NOT EMPTY(TRIM(Service2))
  548.                 =FWRITE(new, '"'+Service2+'"')
  549.             ELSE
  550.                 =FWRITE(new, ';')
  551.             ENDIF
  552.                 
  553.             IF NOT EMPTY(TRIM(Service3))
  554.                 =FWRITE(new, '"'+Service3+'"')
  555.             ELSE
  556.                 =FWRITE(new, ';')
  557.             ENDIF
  558.                 
  559.             IF NOT EMPTY(TRIM(Service4))
  560.                 =FWRITE(new, '"'+Service4+'"')
  561.             ELSE
  562.                 =FWRITE(new, ';')
  563.             ENDIF
  564.                 
  565.             IF NOT EMPTY(TRIM(Service5))
  566.                 =FWRITE(new, '"'+Service5+'"')
  567.             ELSE
  568.                 =FWRITE(new, ';')
  569.             ENDIF        
  570.  
  571.         ENDIF
  572.     ENDIF
  573.  
  574.             
  575. Count = Count + 1    
  576.     
  577.     
  578. ENDDO
  579.